SET DELE OFF
DR='N:'
F1='PATIENT'
F11='NAME'
F12='FNAME'
f13='patcod'
f14='birdate'

USE &DR&F1

INDE ON PAT_FILCOD TO &DR&F1
INDE ON PAT_NAME+PAT_F_NAME TO &DR&F11
INDE ON PAT_F_NAME+PAT_NAME TO &DR&F12
inde on pat_codcrp+pat_name to &DR&f13
inde on pat_name+dtos(pat_dob) to &DR&f14

CLOSE ALL